home *** CD-ROM | disk | FTP | other *** search
/ Aminet 22 / Aminet 22 (1997)(GTI - Schatztruhe)[!][Dec 1997].iso / Aminet / biz / dopus / DOpus56PL.lha / opus56pl / Zainstaluj < prev    next >
Text File  |  1997-06-01  |  6KB  |  174 lines
  1.  
  2. ;
  3. ;           DOpus56PL © 1996-1997 Marcin Orîowski (01.06.1997)
  4. ; 
  5. ;        ---------------------------------------------------------
  6. ; 
  7. ;           ###    ###    #########  ###    ###    ###    ###
  8. ;           ###    ###    ###        ####  ####    ###    ###
  9. ;           ###    ###    ###        ### ## ###    ###    ###
  10. ;           ###    ###    ########   ### ## ###    ##########
  11. ;           ### ## ###    ########   ###    ###    ##########
  12. ;           ### ## ###    ###        ###    ###    ###    ###
  13. ;           ####  #### ## ###     ## ###    ### ## ###    ### ##
  14. ;           ###    ### ## ###     ## ###    ### ## ###    ### ##
  15. ; 
  16. ;        ---------------------------------------------------------
  17. ; 
  18. ;                      Mental Pictures Developed Here
  19. ; 
  20. ;         SilverDream!'s BBS:      +48 (0)91 540431  (non-stop!)
  21. ; 
  22. ; 
  23. ;         Internet :                     carlos@wfmh.man.szczecin.pl
  24. ;                                        carlos@inet.com.pl
  25. ; 
  26. ;         WWW Page :                     http://wfmh.man.szczecin.pl
  27. ; 
  28. ;         FidoNet  :                     Marcin Orlowski@2:481/22.2
  29. ;         GlobalNet:                     Marcin Orlowski@52:4800/6
  30. ;
  31.  
  32. ;=============================================================================
  33.  
  34. ; $VER: Install DOpus56PL (01.06.97) © Marcin Orîowski / WFMH LocalePL
  35. ;
  36. ; Translation release: 5.6
  37. ; Internal           : 1.0
  38. ; Release date       : 01.06.1997
  39. ;
  40. ; Support            : carlos@wfmh.man.szczecin.pl
  41. ;                    : http://wfmh.man.szczecin.pl
  42.  
  43. ;=============================================================================
  44.  
  45. (message "\n"
  46.          "Directory Opus 5.6+\n"
  47.          "polska wersja jëzykowa\n\n"
  48.          "Edycja 1.0 (01.06.1997)\n\n"
  49.          "© 1996-1997 WFMH LocalePL\n"
  50.          "© 1996-1997 Marcin Orîowski\n\n"
  51.          "e-mail: carlos@wfmh.man.szczecin.pl\n"
  52.          "http://wfmh.man.szczecin.pl"
  53.  
  54. )
  55.  
  56. ;=============================================================================
  57.  
  58. (if (= (exists "ENV:LocalePL/LocalePL" (noreq)) 1)
  59.   (
  60.     (set ver (getenv "LocalePL/LocalePL"))
  61.     (if (< ver 2.0)
  62.       (
  63.         (message "Polska wersja jëzykowa wymaga pakietu\n"
  64.                  "WFMH LocalePL v2! lub nowszego\n\n"
  65.                  "Skontaktuj sië z producentem i zamów\n"
  66.                  "najnowszâ, legalnâ wersjë pakietu:\n\n"
  67.                  "WFMH LocalePL\n"
  68.                  "ul. Radomska 38\n"
  69.                  "71-002 Szczecin\n\n"
  70.                  "tel. (091) 836425"
  71.         )
  72.         (message "Informacje poprzez sieê Internet:\n\n"
  73.                  "e-mail: carlos@wfmh.man.szczecin.pl\n"
  74.                  "WWW: http://wfmh.man.szczecin.pl\n\n"
  75.                  "BBS: (091) 540431"
  76.         )
  77.         (abort   "Instalacja przerwana...")
  78.       )
  79.     )
  80.   )
  81.   (
  82.     (message "Polska wersja jezykowa wymaga pakietu\n"
  83.              "WFMH LocalePL v2! lub nowszego\n\n"
  84.              "Skontaktuj sië z producentem i zamow\n"
  85.              "najnowsza, legalnâ wersje pakietu:\n\n"
  86.              "WFMH LocalePL\n"
  87.              "ul. Radomska 38\n"
  88.              "71-002 Szczecin\n\n"
  89.              "tel. (091) 836425"
  90.     )
  91.     (message "Informacje poprzez siec Internet:\n\n"
  92.              "e-mail: carlos@wfmh.man.szczecin.pl\n"
  93.              "WWW: http://wfmh.man.szczecin.pl\n\n"
  94.              "BBS: (091) 540431"
  95.     )
  96.     (abort   "Instalacja przerwana...")
  97.   )
  98. )
  99.  
  100. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  101.     (
  102.       (message "Zainstaluj najpierw Directory Opusa\n"
  103.                "w wersji 5.6 lub nowszej\n\n"
  104.       )
  105.       (abort   "Instalacja przerwana...")
  106.     )
  107. )
  108.  
  109. (set @default-dest "")
  110.  
  111. ;=============================================================================
  112. ; Install catalogs
  113.  
  114. (copyfiles
  115.         (source  "")
  116.         (dest    "DOpus5:")
  117.         (pattern "Catalogs")
  118. )
  119.  
  120.     (if (< (/ (getversion "DOpus5:modules/diskinfo.module") 65536) 56)
  121.         (
  122.         (delete "DOpus5:Catalogs/Polski/diskinfo.catalog")
  123.         (rename "DOpus5:Catalogs/Polski/diskinfo55.catalog" "DOpus5:Catalogs/Polski/diskinfo.catalog")
  124.         )
  125.         (delete "DOpus5:Catalogs/Polski/diskinfo55.catalog")
  126.     )
  127.  
  128.  
  129.  
  130. ;=============================================================================
  131.  
  132. (copyfiles
  133.         (source  "Buttons")
  134.         (dest    "DOpus5:Buttons")
  135.         (pattern "#?")
  136. )
  137.  
  138. ;=============================================================================
  139.  
  140. (if (askbool
  141.        (prompt "\n\n"
  142.                "W katalogu \"DOpus5:Buttons\" zainstalowane zostaîy\n"
  143.                "polskojëzyczne menu uûytkownika oraz menu listera\n"
  144.                "(pliki z koncówkâ .PL).\n\n"
  145.                "Czy chcesz aby zostaîy one ustawione jako menu domyôlne?\n"
  146.                "(Aktualne menu zostanâ zachowane pod zmienionymi nazwami)"
  147.        )
  148.        (help    "")
  149.        (choices "Tak" "Nie")
  150.     )
  151.     (
  152.     (rename "DOpus5:Buttons/lister_menu_default" "DOpus5:Buttons/lister_menu_default.bak")
  153.     (rename "DOpus5:Buttons/lister_menu_default_PL" "DOpus5:Buttons/lister_menu_default")
  154.  
  155.     (rename "DOpus5:Buttons/user_menu_default" "DOpus5:Buttons/user_menu_default.bak")
  156.     (rename "DOpus5:Buttons/user_menu_default_PL" "DOpus5:Buttons/user_menu_default")
  157.     )
  158. )
  159.  
  160. (message "Instalacja zakoïczona\n\n"
  161.          "Teraz nalepiej uruchom DOpusa ponownie, lub jeôli\n"
  162.          "uûywasz go jako, Workbencha uruchom Amigë ponownie.\n\n"
  163.          "Uwagi i sugestie adresuj:\n"
  164.          "WFMH LocalePL\n"
  165.          "ul. Radomska 38\n"
  166.          "71-002 Szczecin\n\n"
  167.          "tel. (091) 836425\n"
  168.          "e-mail: carlos@wfmh.man.szczecin.pl"
  169. )
  170.  
  171. (run "SYS:Utilities/Multiview PrzeczytajMnie" (safe))
  172.  
  173. (exit (QUIET))
  174.